10 REM DISK-UTTILITYS
15 PRINT"[147]"
20 POKE53280,0:POKE53281,0:PRINT"[158]"
25 PRINT"[145][145]         DISK-UTTILITYS V1.0            "
26 PRINT"COPYRIGHT  1992"
27 PRINT"(C)BY MINNESOTA"
30 PRINT"FORMATIEREN"
31 PRINT"DIRECTORY"
33 PRINT"QUIT"
34 GET A$
35 IF A$=CHR$(13)THEN100
36 IF A$=""THEN38
37 IF A$<>""THEN34
38 PRINT"FORMATIEREN"
39 PRINT" DIRECTORY "
40 GET B$
45 IF B$=CHR$(13)THEN 50
46 IF B$="[145]"THEN51
47 IF B$=""THEN54
48 IF B$<>""THEN40
50 GOSUB 11000
51 PRINT" DIRECTORY "
52 PRINT"FORMATIEREN"
53 GOTO 34
54 PRINT" DIRECTORY "
55 PRINT"   QUIT    "
56 GET C$
57 IF C$=CHR$(13)THEN60
58 IF C$="[145]"THEN61
59 IF C$<>"[145]"THEN56
60 SYS64738
61 PRINT"   QUIT    "
62 PRINT" DIRECTORY "
63 GOTO40
100 REM FORMATIEREN
110 PRINT"[147]":PRINT"SIND SIE SICHER?"
111 GET D$
115 IF D$="J"THEN120
116 IF D$="N"THEN10
117 IF D$<>"N"THEN111
120 PRINT"BITTE ZU FORMATIERENDE DISKETTE EINLEGEN"
121 GET F$
122 IF F$=""THEN 121
123 PRINT"DIE DISKETTE WIRD JETZT FORMATIERT!!!!! "
124 PRINT"DAUER:UNGEFAEHR 90 SEK."
125 OPEN 1,8,15,"N:TEST,ID"
126 INPUT"NAME DER DISKETTE:";A$
127 CLOSE 1:OPEN 1,8,15,"N:"+A$:CLOSE 1
133 PRINT"NOCH EINMAL?"
134 GET G$
135 IF G$="J"THEN100
136 IF G$="N"THEN10
137 IF G$<>"N"THEN134
1000 REM DIR
11000 R=-1
11010 T$(0)="DEL"
11020 T$(1)="SEQ"
11030 T$(2)="PRG"
11040 T$(3)="USR"
11050 T$(4)="REL"
11060 OPEN 1,8,15
11070 OPEN 2,8,2,"#"
11080 PRINT"[147]TYP    NAME             LAENGE[146]"
11090 S=1
11100 PRINT#1,"U1:"2;0;18;S
11110 GET#2,T$,S$
11120 S$=S$+CHR$(0)
11130 T$=T$+CHR$(0)
11140 S=ASC(S$)
11150 E=1
11160 PRINT#1,"B-P";2;2+(E-1)*32
11170 A$=A$+CHR$(0)
11180 GET#2,A$
11190 A$=A$+CHR$(0)
11200 IF ASC(A$)<128 AND ASC(T$)=0 THEN 11390
11210 IF ASC(A$)>127 THEN PRINT T$(ASC(A$)-128)"    ";
11220 PRINT#1,"B-P";2;5+(E-1)*32
11230 N$=""
11240 FOR A=1TO16
11250 GET#2,B$
11260 N$=N$+B$
11270 NEXT A
11280 PRINT N$"   ";
11290 PRINT#1,"B-P";2;30+(E-1)*32
11300 GET#2,A$,B$
11310 A$=A$+CHR$(0):B$=B$+CHR$(0)
11320 L=ASC(A$)+256*ASC(B$)
11330 PRINT L
11340 E=E+1
11350 IF E<9 THEN 11160
11360 E=0
11370 IF ASC(T$)=0THEN 11390
11380 GOTO 11100
11390 CLOSE 2
11400 CLOSE 1
11410 GET A$
11420 IF A$=CHR$(13)THEN10
11430 IF A$="_"THEN10
11440 IF A$=" "THEN10
11450 IF A$=""THEN 10
11460 IF A$<>""THEN11410